home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 3 / CD ACTUAL 3.iso / linux / incoming / jstools-.6v3 / jstools- / jstools-tk3.6v3.0 / lib / jentrymouse.tcl < prev    next >
Encoding:
Text File  |  1995-02-09  |  5.3 KB  |  175 lines
  1. # jentrymouse.tcl - support for Entry mouse bindings
  2. # 
  3. # Copyright 1992-1994 by Jay Sekora.  All rights reserved, except 
  4. # that this file may be freely redistributed in whole or in part 
  5. # for non¡profit, noncommercial use.
  6. # 
  7. # 
  8. # Essentially, call
  9. #   j:eb:basic_bind Entry   ---   for basic Entry bindings
  10. #   j:eb:emacs_bind Entry   ---   for Emacs-like Entry bindings
  11. #   j:eb:vi_bind Entry      ---   for Emacs-like Entry bindings
  12. # (the emacs_bind and vi_bind procedures include the basic_bind 
  13. # procedures; you don't have to call both.)
  14.  
  15. # TO DO:
  16. # ^L
  17. # sentence-manipulation stuff
  18. # case change commands, transposition commands
  19. # commands to do with mark?
  20. # word deletion - fix to use buffer
  21. # generalise movement to copying-to-cutbuffer and deletion
  22. # IMPROVE ENTRY BINDINGS
  23. # literal-insert for entry
  24.  
  25. ######################################################################
  26. # global variables:
  27. #
  28. global J_PREFS env
  29. if {! [info exists J_PREFS(typeover)]} {set J_PREFS(typeover) 1}
  30. #
  31. ######################################################################
  32.  
  33. ######################################################################
  34. ######################################################################
  35. ##  MOUSE BINDINGS
  36. ######################################################################
  37. ######################################################################
  38.  
  39. ######################################################################
  40. # routines for dragging the selection - fix timing problems
  41. ######################################################################
  42.  
  43. # j:emb:move_sel W x y t - move/start selection, clearing existing selection
  44.  
  45. proc j:emb:move_sel { W x y t } {
  46.   global j_teb
  47.   
  48.   $W icursor @$x
  49.   $W select from @$x
  50.   if {[lindex [$W config -state] 4] == "normal"} {focus $W}
  51.   
  52.   set j_teb(eselstart,x) $x
  53. }
  54.  
  55. # j:emb:continue_sel W x y t - drag out a selection if enough time has passed
  56.  
  57. proc j:emb:continue_sel { W x y t } {
  58.   global j_teb
  59.   
  60.   set xdiff [expr {abs($x - $j_teb(eselstart,x))}]
  61.   if {$xdiff < 3} {
  62.     return
  63.   }
  64.   
  65.   $W select to @$x
  66. }
  67.  
  68. ######################################################################
  69. # routines to let scanning and pasting double-up on the same button
  70. # based on code by Tom Phelps <phelps@cs.berkeley.edu>
  71. ######################################################################
  72.  
  73. # j:emb:start_scan_or_paste W x y t - start a drag or paste, recording
  74. #   current location and time so we can later decide whether to paste or drag
  75. # BIND TO <ButtonPress-N>
  76. proc j:emb:start_scan_or_paste { W x y t } {
  77.   global j_teb
  78.   $W scan mark $x
  79.   set j_teb(scanpaste_time) $t
  80.   set j_teb(scanpaste_paste) 1
  81. }
  82.  
  83. # j:emb:continue_scan W x y t - scan the entry, and mark the fact that
  84. #   we're scanning, not pasting.
  85. # BIND TO <BN-Motion>
  86. proc j:emb:continue_scan { W x y t } {
  87.   global j_teb
  88.   $W scan dragto $x
  89.   set j_teb(scanpaste_paste) 0
  90. }
  91.  
  92. # j:emb:end_scan_or_paste W x y t - if we haven't been scanning, and it's
  93. #   been less than 500ms since button-down, paste selection
  94. # BIND TO <ButtonRelease-N>
  95. proc j:emb:end_scan_or_paste { W x y t } {
  96.   global j_teb
  97.   if {$j_teb(scanpaste_paste) &&
  98.       [expr {$t-$j_teb(scanpaste_time)}] < 500} {
  99.     focus $W
  100.     j:eb:paste_selection $W
  101.   }
  102. }
  103.  
  104. ######################################################################
  105. # j:emb:sel_word W - select current word (at insert point)
  106. # hacked from tk_entryBackword in entry.tcl
  107. ######################################################################
  108.  
  109. proc j:emb:sel_word { W args } {
  110.   set string [$W get]
  111.   set length [string length $string]
  112.   set curs [expr [$W index insert]-1]
  113.   if {$curs < 0} return
  114.   for {set x $curs} {$x > 0} {incr x -1} {
  115.     if {[string first [string index $string $x] " \t"] >= 0} {
  116.       incr x
  117.       break
  118.     }
  119.     if {([string first [string index $string $x] " \t"] < 0)
  120.         && ([string first [string index $string [expr $x-1]] " \t"]
  121.         >= 0)} {
  122.       break
  123.     }
  124.   }
  125.   set start $x
  126.   for {set x $curs} {$x < $length} {incr x 1} {
  127.     if {([string first [string index $string $x] " \t"] < 0)
  128.         && ([string first [string index $string [expr $x+1]] " \t"]
  129.         >= 0)} {
  130.       break
  131.     }
  132.   }
  133.   set end $x
  134.   $W select from $start
  135.   $W select to $end
  136.   $W icursor $start
  137.   tk_entrySeeCaret $W
  138. }
  139.  
  140. # j:emb:sel_line W - select entire entry
  141. proc j:emb:sel_line { W args } {
  142.   $W select from 0
  143.   $W select to end
  144.   $W icursor 0
  145.   tk_entrySeeCaret $W
  146. }
  147.  
  148. ######################################################################
  149.  
  150. # j:eb:mouse_bind W - set up W (normally "Entry") for basic editing
  151. proc j:eb:mouse_bind { W args } {
  152.   global j_teb
  153.   
  154.   j:tk3 {                ;# bindings are superfluous in Tk 4
  155.     # mouse bindings for selection:
  156.     bind $W <1>            {j:emb:move_sel %W %x %y %t}
  157.     bind $W <B1-Motion>        {j:emb:continue_sel %W %x %y %t}
  158.     
  159.     bind $W <Double-1>        {j:emb:sel_word %W %x %y %t}
  160.     bind $W <Triple-1>        {j:emb:sel_line %W %x %y %t}
  161.     
  162.     # mouse bindings for scanning and pasting:
  163.     bind $W <2>            {j:emb:start_scan_or_paste %W %x %y %t}
  164.     bind $W <B2-Motion>        {j:emb:continue_scan %W %x %y %t}
  165.     bind $W <ButtonRelease-2>    {j:emb:end_scan_or_paste %W %x %y %t}
  166.     
  167.     # mouse bindings for scanning and pasting:
  168.     bind $W <3>            {j:emb:start_scan_or_paste %W %x %y %t}
  169.     bind $W <B3-Motion>        {j:emb:continue_scan %W %x %y %t}
  170.     bind $W <ButtonRelease-3>    {j:emb:end_scan_or_paste %W %x %y %t}
  171.   }
  172. }
  173.  
  174.  
  175.